THE Access developer in Iceland?
 

Home
 

Code samples
 
 
 

 

 

 

 

 

 

 


Nr.:


Tip of the moment is:
Excel - Set Scroll Area
 Private Sub Worksheet_Activate()
  'Notandinn getur ekkert scrollað útfyrir notað vinnusvæði (síðasta notaða reit) en þó ekki minna en C2.
   Me.ScrollArea = Range(Me.UsedRange, Me.UsedRange(2, 3)).Address

  'Notandann getur ekki skrollað útfyrir B2:G200
   Me.ScrollArea = Range("B2", "G200").Address

  'Endursetja
   Me.ScrollArea = ""
End Sub

Bibliography: Arni Laugdal
See also:

Send a comment (Article nr: 13923)